﻿Imports Sistema_InformacionNaviera.BC
Imports Sistema_InformacionNaviera.BE
Imports Sistema_InformacionNavier.UTIL


Public Class Consultar_Desglose

    'Inherits System.Web.UI.Page
    Inherits PaginaBase

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'If Not Page.IsPostBack Then
        '    txtNave.Text = "" : txtPto.Text = "" : txtNroBl.Text = "" : lblKvje.Text = 0
        'End If
        'If My.Request.Params("__EVENTTARGET") = "MiFuncionPaquetes" Then
        '    CargarDatosViajePopUp()
        'End If
    End Sub

    Public Sub CargarDatosViajePopUp()

        'If Session("BPCodViaje") = Nothing Then
        '    lblKvje.Text = String.Empty
        '    txtNave.Text = String.Empty
        'Else
        '    lblKvje.Text = Session("BPCodViaje")
        '    txtNave.Text = Session("BPDesViaje")
        'End If
    End Sub

    'Protected Sub btnGrabar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnConsultar.Click
    '    CargarGridConsulta()
    'End Sub

    Public Sub CargarGridConsulta()
        Dim objBlImpoBE As New BillOfLadingImpoBE
        Dim lstBlImpoBE As New List(Of BillOfLadingImpoBE)
        Dim objUtil As New Funciones
        Dim objBlImpoBC As New BillOfLadingImpoBC
        'objBlImpoBE.Viaje = txtNave.Text 'IIf(Val(lblKvje.Text) = 0, 0, Val(lblKvje.Text))
        'objBlImpoBE.PuertoOrigenDesc = IIf(txtPto.Text.Trim = "", "", txtPto.Text.Trim)
        'objBlImpoBE.Numero = IIf(txtNroBl.Text.Trim = "", "", txtNroBl.Text.Trim)

        'lstBlImpoBE = objBlImpoBC.ListarBlImpo(objBlImpoBE)
        'dgBlImportacion.DataSource = lstBlImpoBE
        'dgBlImportacion.DataBind()
    End Sub


    'Protected Sub btnNuevo_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnNuevo.Click
    '    Response.Redirect("GestionarTarifaFlete.aspx", True)
    '    Session("tbTempFleteTipoTransaccion") = 0 ' si es nuevo
    'End Sub

    'Protected Sub btnSalir_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSalir.Click
    '    Response.Redirect("~/Default.aspx", True)
    'End Sub

    'Private Sub dgBlImportacion_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles dgBlImportacion.RowCommand
    '    'If Val(lblKvje.Text) > 0 Then
    '    '    Dim intCodigo As Integer = Convert.ToInt32(e.CommandArgument)
    '    '    Dim iViaje As Integer = Val(lblKvje.Text)
    '    '    Dim sMensaje As String = String.Empty
    '    '    Dim bExito As Boolean

    '    '    Select Case e.CommandName  '.ToLower
    '    '        Case "Editar"

    '    '            Session("TipoEvento") = 1 ' modificar
    '    '            Session("CodigBL") = intCodigo
    '    '            Session("CodigVje") = iViaje
    '    '            Response.Redirect("BLImportacion.aspx", True)

    '    '        Case "Eliminar"

    '    '            Dim objBlImpoBE As New BillOfLadingImpoBE
    '    '            objBlImpoBE.Viaje = iViaje
    '    '            objBlImpoBE.CodBLImpo = intCodigo

    '    '            Dim objPaqueteBC As New BillOfLadingImpoBC

    '    '            objPaqueteBC.EliminarBlImpo(objBlImpoBE, bExito, sMensaje)
    '    '            If bExito Then
    '    '                Alerta("El registro fue eliminado con éxito.", False, String.Empty)
    '    '                CargarGridConsulta()
    '    '            End If

    '    '    End Select
    '    'End If
    'End Sub

    'Protected Sub ASPxButtonEdit1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ASPxButtonEdit1.TextChanged
    '    Response.Redirect("../page/PopUp/BuscarPuerto.aspx", True)
    'End Sub

    Protected Sub btnNuevo_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnNuevo.Click
        Response.Redirect("GestionarDesglose.aspx")
    End Sub
End Class